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ZTITLE "VAK=11 —. 
MODULE CONVSFILES 
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BEGIN 
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ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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Y H 
ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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14-Sep-1984 CONV. she elton 


lee 

; i Facility: VAX-11 CONVERT 

6 i Abstract: RMS file handeling routines 
i Contents: 
i PARSE DEF 


OPEN_INPUT 

SEARTH_FILE 

OPEN_IN 

OPEN’ OUTPUT 

GET_PROLOGUE 

CREATE _BUFFER 

i Environment: 

VAX/VMS Operating System 


i Author: Keith 8. Thompson Creation date: June-1980 
i Modified by: 
V03-013 JWwT0194 eaque 31-Aug-1984 
Fix problem with” tonver dropping blocks when input 
tite is UDF. 
v03-012 RASO311 Ron Schaefer 18-Jun-1984 


Fix output file related file parsing by making sure the 
it file result filespec is available. Fix to RAS0260. 


v03-011 RASO272 Ron Schaefer 16-Mar-1984 
Allow CONVERT to fastload & sors network files since 
SORT-32 is now abel to handle them. 


SESS SOSOCOSOS OS EEE PEPER POCO D ODEO 


SESS SSS SS CSCO DOS OU EE REE ES ERE 
a a ld el el el ll ll ll ll el el el cl el ll el ll ll ll ll 


v03-010 easeeee Ron Sc a th 1m 22-Mar-1984 
jeprove performance of RASO copying t the +4 § Ba and 

0069 fields from the olesr ine: oP to the real 
Bo70 used for the open. Also copy the device Ft a MOS 
oth v03-009 RASO250 n Schaefer 23-Feb-1984 
Bo7 Convert SEARCH_ rice to use L1BSFIND FILE for correct 
pore related file processing. Add FOL_STRING support. 
pore v03-008 KBT0442 Keith B. Thompson 30-Dec-1982 
34 Make fdl_ fab/rab- global 
6079 v03-007 epTOs3S Keith B. Thompso a iErdec~ 1982 
0080 Always open the Sout file to fill the fab 
4 except when comming from tape and sorting 

Hy v03-006 KB10392 Keith B. Thompson 29-0c t-1982 

ORE Call new read_prologue routine 
0086 v03-005 xB10370 Keith B. Thompson 19-Oct-1982 
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CONVSFILES VAK=11 CONVERT 18-Sep-1986 23:45:35  VAX=11 Bliss-32 vé.0-742 
you~000 tea 4 « " CONV SRCICONUE IVES BSo41 


4 O08 : : Use new supported fdl$parse 

8 $0 $ 1: v03-004 KB10347 Keith 8. Thompson 4-0ct-1982 
4 Gost ; : Use new Linkage definitions 

38 O36 1 i v03-003 ody ge Keith Thompson 5-Apr-1982 
ae 009 } : on't do a search on a device mounted foreign 

38 $098 1 v03-002 xgTO0e? Keith Thompson 26-Mar-1982 
24 4 : } ix fill switch for /nofast 

99 0098 1 v03-001 KBT0015 Keith Thompson 18-Mar-1982 
+ 13 ix area gl tocation bug ta get_prologue and use new 
101 100 1! ay ver35 instead of literal 

19 101 1! 

10 102 #1 ieee 


6 
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3s 10 103 (1 

% 104 1 PSECT 

. ¥ 105 1 OWN = _CONVSOWN (PIC), 

; 1 106 1 GLOBAL = “CONV$SGLOBAL (PIC) 

; 1 107 1 PLIT = “CONVSPLIT (SHARE,PIC), 

; 119 ; : : CODE = “CONVSCODE (SHARE ,PIC); 

; 116 110 ] LIBRARY ‘SYSSLIBRARY:L18.L32°; 

3 aE 1 ; LIBRARY ‘SRC$:CONVERT'; 

: 115 8 | EXTERNAL ROUTINE 

i 1g 114 1 CONVSSGET_VM : CLSGET VM 

> 11 115 1 CONVS$READ_PROLOGUE : CLSREAD_PROLOGUE NOVALUE, 

; 118 116 1 CONVSSRMS_OPEN_FRROR =: NOVALU 

3 119 117 1 FDLSPARSE : ADDRESSING_MODE( GENERAL ), 

: 9 118 LIBSFIND_FILE : ADDRESSING-MODE( GENERAL ): 

¢ g 120 1 FORWARD ROUTINE 

3 121 1 CONVSSSEARCH FILE, 

; : 91 é 1 CONVSSOPEN_IR; 

; ; $ 3 : : } Error codes 

: 3 91 $ ! DEF INE_ERROR_CODES; 

; 0 ot g ! EXTERNAL 

: ; ¢ 3 , : : The Option Flags: 

gs 4 01 ¢ 1 CONVSGL_APPEND : LONG, ' APPEND 

; 135 0133 1 CONVSGL— CREATE : LONG, i CREATE 

; 1 0134 1 CONVS$GL—FDL : LONG, i FDL 

: 13 0135 1 CONVS$GL EXC : LONG, i EXCEPTION 

3 138 0136 1 CONVS$GL_FAST : LONG, i FAST 

; 139 0137 1 CONVS$GL—MERGE : LONG, i MERGE 

> 140 0138 1 CONVSGL—FILL : LONG, i FILL BUCKETS 
3 141 0139 1 CONVSGL_F IX : LONG, ! FIXEB_WRITE 
: 14 0140 1 CONVS$GL_KEY : LONG, i KEY 

> 14 0141 1 CONV$GL PAD : LONG, i PAD_RECORDS 
> 144 014g 1 CONVSGL— SHAR : LONG, i SHARE 

> 145 0143 1 CONVSGL~SORT : LONG, i SORT 

> 146 0144 1 CONVSGL-READ_C LONG, i READ_CHECK 
3 147 0145 1 CONVSGL_ TRUNCATE LONG, ! TRUNCATE 

> 148 0146 1 CONVS$GL "WRITE _C : LONG, i WRITE CHECK 
3 149 147 1 CONV$GL~ PROLOG : LONG, ! PROLOGUE 

; 130 0148 CONV$AB_FLAGS : BLOCK C ,BYTE J, 

; 138 0150 1 CONVSGW_OUT_MRS : WORD, 

> 15 151 1 CONVSGW_UDF ~MRS : WORD, 

: 154 138 1 SGB"CURRENT_FILE : BYTE, 

: 155 153 1 ONV$GW-MAX_REC"SIZ : WORD, 

; 136 154 1 CONVS$GL-RECBUF _PTR, 

: 15 155 1 CONVS$GL ~VFC~BUF PTR, 

; 138 a139 CONVSGL—F INDFILE_CTX, 

; 160 158 1 CONVSAL_IN_FILE_NAM VECTOR C ,LONG J, ! Input File 
: (161 0159 1 CONVSAR~OUT_FILE_NAM REF DESC_BLK, i Output File 


6 
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: 16 160 CONVSAR_FDL_FILE_NAM =: REF DESC_BLK, ! FOL File 
: 164 16¢ 1 CONVSAB_IN_XABSUM : $SXABSUM_DECL, 

> 165 163 1 CONVSAB~ IN-XABFHC : $XABFHC”DECL,” 

3 196 164 (1 CONVSAB_IN_ : SNAM_ ° 

: 16 165 1 CONVSAB_IN-FAB SFAB"DECL, 

; 168 166 1 CONV$AB_IN-RAB RAB ~DECL 

: 169 167 1 ONV$AB_OUT_XABSUM SXABSUM DECL, 

: 170 168 1 CONV$AB_OUT— : SNAM_DECL, 

: 171 1 1 CONV$AB_OUT-FAB : $FAB"DECL, 

; \7e 170 i CONV$AB OUT RAB : $RABIDECL;: 

: 17% O17, 1 GLOBAL 

> 175 173 1 CONVSAB_FDL_FAB : REF BLOCK C ,BYTE J, 
: 176 0174 CONVS$AB~FDL~RAB : REF BLOCK C {BYTE 3: 


0-742 Page 6 
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is 
PARSE _DEF 14-Sep-1984 CONV.SRCIJCON 


Implicit Outputs: 
none 


Routine Value: 
Value returned by fdi$parse 


179 176 ZSBTTL ‘PARSE_DEF' 

0 17 GLOBAL ROUTINE CONVSSPARSE_DEF = 

SAB Ls 
es 9 | Functional Description: 

5 1 § Calls fdl$parse to parse the fdl file and fill in a fab. The 
; 2 info from this fab ‘s will be copied to the output fab in open_output 
4 ; 5 Calling Sequence: 

4 ; ‘ CONVSSPARSE () 

4 189 Input Parameters: 

+ iP none 

+4 136 Implicit Inputs: 
44 133 CONVSAR_FDL_FILE_NAME = FDL file descriptor 
9% 136 

00 19 

01 198 

4 1 

0 

04 

05 

06 

07 

08 

09 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: Output Parameters: 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
' 


PIPIPINIPURPININININININININININININININININININIDD 2 9 9 9 9 OO OS SO OO 


: Initialize the flags 

FDOL_FLAGS = 0; 

: If convert is signaling then fdl should 
IF .CONVSAB_FLAGS C CONVSV_SIGNAL J 

THEN 


FDL_FLAGS = FDLSM_SIGNAL; 
FDLTFLAGS = 1; 


2 
2 
206 Routines Called: 
10 $3 
11 0 FDLSPARSE 
1 0 
1 ' Side Effects: 
14 4 
15 es 
16 
17 2 
18 2 
19 2 : EXTERNAL LITERAL 
20 ‘ i FDLSM_FDL_STRING, 
21 FDLSM~SIGRAL; 
§ LOCAL 
4 FDL_FLAGS : LONG; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
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} If caller passed in an fdl string, then tell fdl about it 
theacunsns- FLAGS C CONVSV_FDL_STRING J 
FDL_FLAGS = FDLSM_FDL aS TRING OR .FDL_FLAGS; 
FDLZFLAGS = 2 OR [FDL=FLAGS; 
45 4 RETURN FDLSPARSE( .CONVSAR_FDL_FILE_NAM, 
CONVSAB_ 8, 


4 fats CONVSAB- eet “RAB, 
rt 45 FDL_FLAGS 


50 4 END; 


Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Be oe 
rrr 
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= 
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«TITLE CONVSFILES VAX=11 CONVERT 
-IDENT \Vv04-000\ 


-PSECT _CONVSGLOBAL,NOEXE, PIC,2 
00000 CONVSAB_FDL FAB:: 
00004 CONVSAB_FDL_RAB:: 

-BLRB 


ONVSSRMS~OPEN 
£ DLSPARSE, CIBSF IND. FILE 
-EXTRN CONVER RTs Fac 


ONV ONVS gPADBLK 
-EXTRN CONVS an CeONVS 
TEXTRN CONVS$~CONF QUA » CONVS- CREATEDSTM 
-EXTRN CONV$~CREA_ ERR. * CON NVS“DELP RI 
-EXTRN CONV$"DUP, ~CONVS_EXTN-ERR 
CONVSFAT TALERC. conve” FILLIM 
CONVS” IDX_LIM, CONVS$_TLL_KEY 


4 
4 

-EXTRN poe $2 AS vM ee PROLOGUE 
F 


v$ 
Ere convs gP ROL _WRT 
ie vS_RSK 


sows seo 

NEONVS, UD UDF _BLK 
ra cOnvbet CREATE 
* yg PR 


Sncunnisicnecpesigseiptotl Nic uaa-abieseccdiaicicicaslliamnteinc aiid ria sletssanesltiia de csheinabdalddin msitssaiibataitias 5 iodlitaeien Ni 


comes VAK=11 CONVERT 
| PARSE_DEF 


0000 00000 
7E 04 00002 
03 0000G CF E9 00004 
6€ ot DO 00009 
03 0000G CF 1 €1 ites 
6E Re 8 pote 
E 0D 0001 
0000°' CF 9F 00017 
Q000° CF 9F 00018 
0000G CF DD OOO0IF 
000000006 00 04 FB 32083 
04 0002A 


; Routine Size: 43 bytes, Routine Base: _CONVSCODE + 0000 


ae 


1$: 
2$: 


a FB:T3:35 — UCGuveseedeonve Les 05271 


F 
CONVSGL_ FAST. CONVSGL_MERGE 
CONVSGL_F Wc ONSct 4 
CONV ee 
CONV + CONV a3 [SORT 
g CONV GC_ TRUNCATE 


ONvS6L Sun CONVSAB_FLAGS 


comeee ne 
ve rrep se 8 
5. vuOn 


AS 
COO 


ONV$AB_IN_FAB 
ONVS$AB_OUT_XABSUM 


ss ROM mmr 
mm 
t 
55 


CONVSAB_OUT_RAB 
_CONVSCODE,NOWRT, SHR, PIC,2 
ag rer DEF, Save nothing 


a. FDL-S LAGS 

. CONDSAB FLAGS, 2$ 
a2. FDL_FLAGS 
CONV$AB_FDL_RAB 
CONVS$AB_FDL_F AB 
CONVSAR FDL FILE. NAM 
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ZSBTTL | 
GLOBAL ROUTINE CO CONVSSOPEN, INPUT = 


1 
! Functional Description: 


Opens an input file 
Calling Sequence: 

CONVSSOPEN_ INPUT () 
Input Parameters: 

none 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 
CONV$_SUCCESS or error code from CONVSSSEARCH_FILE or CONVSSOPEN_IN 
Routines Called: 


CONVSSSEARCH FILE 
CONVSSOPEN_IN 


Side Effects: 
Opens an input file 


ee ee ed ed ed 


BEGIN 


LOCAL 
STATUS : LONG, 
IN_DEV : BLOCK C 1,LONG 2; 


OOOO OCOOSOOCOSOOCOOCOCOOSOSOOCOSO OOOO OO OOOO OOO OOOO OOOOOO0O 


BVLOSS NEAR AN OOS VON EU OSS NONE UNIS ODS WHR oO oo Obs GA Ua OOo 


Any errors on the input fab are OPENIN errors 
CONVSAB_IN_FAB C FABSL_CTX J = CONVS_OPENIN; 

} Start by getting the file name 

RET_ON_ERROR( CONVSSSEARCH_FILE() ); 


' For now there are only sequential files on tape if there is no 
definition file then it cant be a fast load 


: 
| 
| 
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VAX=11 CONVERT 1. 1984 23:45: AX-11 Bliss-3 -74 
OPEN_ INPUT 12-8ep-19 6 $3:18:88 CONV. SRC afi Snr ice 5°55301 
IN.DEV = .CONVSAB_IN_FAB C FABSL_DEV J; 
Ven NOT .CONVSGL_FDL ) AND .IN_DEV C DEV$v_SaD J 

BEGIN 

CONVSGL _FAST = CLEAR; 

CON V$GL~ SORT = CL 


: If we are sorting the input file from tape or network 
: then don't bother opening the input file here 


if .CONVSGL_SORT AND (.IN_DEV C DEV$V_SQD ] OR .IN_DEV C DEVSV_NET ]) 
RETURN CONVS_SUCCESS 
RETURN CONVSSOPEN_IN() 

END; 


0000 00000 .ENTRY CONVSSOPEN INPUT Save nothing 
00006 cr 00000000G 8F D0 00002 MOVL #CONVS OPERIN, CONVSAB_IN_FAB+24 
0000v 98 FB Boe CALLS 40, CORVSSSEARCH. FILE 
rf 0 £9 0001 STATU 
0 00006 CF DO 9001 MOVL  CONVS Sab IN FABS64, IN_DEV 
00006 CF €8 0001 BLBS CONVSGL “FDC, 
08 5 05 £1 0001D BBC a5, 1 
00006 CF D4 00021 CLRL CONVSGC_FAST 
00006 CF 04 00025 CLRL CONVS$GL "SORT 
. o¢ 00006 CF 9 900 9 1$ BLBC CONVSGL SORT, 3$ 
04 50 0D €1 900 5 BBC nf, In DEV, 3$ 
50 01 BO 009 é 28 MOVL #i, RO 
0000v CF 00 FB 9003A 3$ CALLS #0, CONVS$SOPEN_IN 
04 0003F 4$ RET 


Size: 64 bytes, Routine Base: _CONVSCODE + 0028 
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LES yaney CONVERT 15-Sep-19 :4 AX-11 Bliss 
‘come SEARCH. FILE yexgee= 188s F5:78:88 — Eotaw At lesy 
ZSBTTL ‘SEARCH_FIL Lge 
GLOBAL ROUTINE CONVSSSEARCH_FILE = 


‘oe 


3 


F 
| 
| 


i Functional Description: 


Searches for an input file 
| cotting Sequence: 
CONVSSSEARCH_FILE() 
i Input erenetar es 


i 


i Implicit Inputs: 
CONVSAL_IN_FILE 
CONV$GB_ CURRENT _F 
CONVSGL_F INDFIL 


i Output Parameters: 
none 


NAME - Input file name descriptor array 
FILE - Current input file name being searched 
E_CTX = LIBSFIND_FILE context 


i Implicit Bea 


i Rout ine Value: 
CONVS_SUCCESS or CONV$_NOWILD 
i Rout ines Called: 
LIBSFIND_FILE 
CONYSSANS _OPEN_ERROR - By RMS as an AST or by us on LIBSFIND_FILE errors 


DPAAAAMMUIVIVA & 
MEUM (OO OONO VEWN $O ONO VE WN“ O OONOU EWN 


NOVEM OO OONOU SWI -O0O@ 


o 


NOU SEWN OOD 


POR MAMA AAA Ee 


Side Effects: 


CDOSOOCCOCOSCOOSOOOOCOOCOSOSCOCO COCO SOOOSCOCOOOCOCOOC OOOO OOO OOOO OOOOOOoOOOoOO 


PRIPIMMPONMOMONPEPOPOPNDNY 0 tt at a a a a a a a a es 


6 

9 Sets up input name block for next input file 
70 36 

71 

7 36 

7 68 BEGIN 

7% 69 

75 0 LOCAL 

7 71 STATUS, 

7 re T 

78 7 - FINDF ILENAM : REF BLOCK -BYTE ‘. 

79 7% IN_ NAME : REF DESC. 

80 75 OUT_NAME : BL 

81 u IN_DEVICE : BF OCR {,LONG ): 

Hy : IND 

84 4 FINDFILEFAB = CONVSGL_FINDFILE_CTX : REF BLOCKC .BYTE); 


7 
yen 1S-seo-1986 25:45:35 yaxet1 a1 
IN.NAME = .CONVSAL_IN_FILE_NAM C .CONVSGB_CURRENT_FILE J; 


OUT _NAME DSC$B_CLASS = DSCSK_CLASS_D; 
OUT“NAME [DSC$B-DTYPE) = DSCSK-DTYPELT: 
OUT“NAME [CDSCSWILENGTH] = 0: 
OUT“NAME CDSCSA-POINTER) = 0; 


Get the next file name to search for 
STATUS = LIBSFIND_FILE( 

.IN_NAME, OUT_NAME 

cOngs L_FINDFILE_Cfx, 

. 0, STV, ZREF(3)); 
If the filename has wildcards in it it's an error 
if (.STATUS AND STSSM_MSG_NO) EQL SHRS$_NOWILD 
RETURN CONVS_NOWILD; 

Report miscellaneous errors from LIBSFIND_FILE 


if NOT .STATUS 
THEN 


BEGIN 
FINDFILEFAB C FABSL_CTX J = CONV$_OPENIN; 
CONVSSRAS _OPEN_ERROR(..F INDF ILEF ABT; 
CONVSAB_IN_FAB C FABSB_FNS -OUT_NAME C DSCSW_LENGTH J; 


CONVSAB~IN7FAB { FABSLFNA } = .OUT NAME C DSCSATPOINTER J; 
Clear the IFI and device char. so we can parse 


CONVSAB_IN_FAB { FABSW_IFI J = 0; 
CONV$AB_IN-FAB C FABSLDEV ) = .FINDFILEFAB C FABSL_DEV J; 


FINDFILENAM = .FINDFILEFAB C FABSL_NAM J; 
: Copy the DVI, FID and DID fields to the NAM block to use for the open. 


CHSMOVE ( NAMSS DY] +NAMSS FID+NAMSS DID, 
FINDFILENAM C NAMST_BVI J, CONJSAB_IN_NAM [ NAMST_DVI )); 


RETURN CONV$_SUCCESS 
END; 


PUN OOOO Fwn oO 
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RoRoRoNonononon. 2 2 3 2 4 = = =O 0000 


007¢ 000 -ENTRY CONVSSSEARCH_FILE, Save R2.R3,R4,R5,R6 : 0325 
56 00006 cf 9 990 MOV CONVSGL_FINDFILE_CTX, R6 ; 
¢ ¢ 99 SUBL2 #12, SP ; 

0006 CF 9A OO00A MOV ZBL CONVSGB_CURRENT _f ILE RO : 0381 
O00GCF40 DO 0000F MOVL CONVSALTIN_FILETNAMCROJ, IN_NAME ; 


| 
SEE eee 


——-—-- , ere ene ease —— 


| 7 
¢ LES VAK=-11 CONVERT 18-se =1984 23:45: AX-11 Bliss-32 V4.0-762 
$eeb08 SEARCH_F ILE 12-808-}ohe 93:73:88 CONV. SRCJCONVFILES.832;1 
| 
04 AE 0200000 8F DO 00015 MOVL § #34471936, OUT_NAME 
a D4 0001 CLAL T_NAME +4 
| 03 dp PUSHL 
| —E 0D PUSHL § 
08 AE OF 4 PUSHAB STV 
7E 7C 0 7 CLRQ 0 = SP) 
56 pp 9 PUSHL R6 
1¢ «=AE OOF 000 PUSHAB OUT_NAME 
DD 3 PUSHL IN_RAME 
000000006 FB 0 CALLS #7, LIBSFIND_FILE 
50 i FFFFO007 4 $6 A BIcL3 ; 65859. “status RO 
00001128  &F 0 sf $02 CMPL = RO, #4392 
08 if 004 BNEO 
50 000000006 8F 00 0004 MOVL §§ #CONVS_NOWILD, RO 
04 0005 RET 
12 51 £8 00053 1$ BLBS STATUS, 2$ 
5 a 09 0056 VL FINDFILEFAB, RO 
18 AQ 000000006 8F 00 00059 MOVL  #CONVS_OPENIN, 24(RO) 
0 DD 00061 PUSHL RO 
00006 CF 01 FB 00063 CALLS #1, CONVS$SRMS_OPEN_ERROR 
00006 CF 08 AE 90 00068 28: MOVE  OUT_NAME, CONVSAB_IN_FAB+S2 
0000G CF OC AE DO O006E MOVL OUT"NAME+4, CONVSAB_IN_FAB+44 
00006 CF B4 00074 CLRW = CONTS AB+2 
50 66 00 00078 MOVL FINDFILEFAB, RO 
00006 CF 40 AO 00 00078 MOVL 64(RO), CONVSAB_IN FAB+64 
50 28 Aad DO 00081 MOVL 40(RO), FINDFILENAM 
00006 CF 16 «AO 1¢ 28 00085 MOVC3 #28, 20(FINDFILEMAM), CONVSAB_IN_NAM+20 
50 01 D0 0008C MOVL #1, RO 
04 0008F RET 


; Routine Size: 144 bytes, Routine Base: _CONVSCODE + 0068 


; 433 0428 1 
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Be Be Oe Be Oe Be Oe Be Be Be Be Ge Be Be Oe Se Be Ge Se Se Se Oe Se Be Se Se Ge Se Se Oe Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Se Se Se Se Se Se Se SH Ge Ge Se Ge Ge ee 
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VAX=11 CONVERT 1}. 1984 23:45: AX=11 Bliss-32 V4.0-74 
OPEN_IN Ts Haat 13:43:88 CONV SRCJCONVEILES 89201 


? 
5 


5 


ZSBTTL ‘OPEN_IN’ 
GLOBAL ROUTINE CONVSSOPEN_IN = 
Functional Description: 


Actually does the open of the input file, allocates and fills 
in key and area xabs if necessary, also connects record stream 


Calling Sequence: 
CONVSSOPEN_IN() 
Input Parameters: 
n 


Implicit Inputs: 

CONVSAB_IN_FAB = Input fab 
Output Parameters: 

none 


Implicit Outputs: 
none 


Routine Value: 
CONVS_SUCCESS or CONVS_NOKEY 
Routines Called: 


PUPP & So errr 


SSESELES £ 
NOW EWN OOO MEUM "OC OONOUEWN “OC OONOusS 


SOPEN 
CONVSSRMS_OPEN_ERROR - By RMS as an AST 
CONVSSGET_VM 
SDISPLAY 
SCONNECT 
Side Effects: 
Opens and connects input file 


BEGIN 


LOCAL 
STATUS : LONG; 


: Set the FAB from the Option Switches 
Read Check 
CONVSAB_IN_FAB C FABSV_RCK } = .CONVSGL_READ_C; 


: Input file sharing 


RRRRRKRKKLLLKLLRLLLLERRRRRRRRERRRRRRRERRRRRRRRRR ER 


SAN NNO Oo 


oo 


= 
POPSPOPOPONOPONOPONONINORY 2 8 a tt Ot tt 9 


RRRRELE 
BRUINS 


———— 
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iC LES VAX=11 CONVERT 1-se =1984 23:45: AX=11 Bliss=32 V4.0-742 Page 15 
Rivets OPEN_IN 12-300-138e $3:43:88 CONV. SRCJCONVFILES.832;1 9 07) 
; 49 IF . CONVSGL _ SHARE 

49 4 HEN 

436 BEGIN 

$38 Set up the file sharing bits 

49 CONVSAB_IN_FAB C FABSB_SHR J] = FABSM_PUT OR FABSM 


GET OR FABSM_DEL OR 
FABSM_UPD OR FABSM_UPI; 


Do not wait for any record locks 
CONVSAB_IN_RAB C RABSV_RRi J = _SET 
END; 
! If we have to access the file by key (other then primary) or we have 
! to sort the file (which means we use RFA access) 
then clear the sqo bit 
dl ; -CONVSGL_KEY NEQU 0 ) OR .CONVSGL_SORT 
CONVSAB_IN_FAB C FABSV_SQO J = _CLEAR; 
Open the file 
SOPEN ( FAB=CONVSAB_IN_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
Say that the file is open 
CONVSAB_FLAGS C CONVS$V_IN J] = _SET; 


! If this is an index file and we are creating the output file not by 
} FDL definition then get the area ad key xabs 


if ( .CONVSAB_IN_FAB C FABSB_ORG ) EQLU FABSC_IDX ) AND 
TCONVSGL_CREATE AND ( NOT .CONVSGL_FDL ) 


MYLLLASESLSSSSISLSEeS oS oS OSS. ¥ 


SSSSBNSERRONS LS Sars nran=oSeVEnrarv—o 


THEN 
BEGIN 
LOCAL 
$ ES, 
3 VM_POINTER, 
CURRENTXAB : REF BLOCK C ,BYTE J); 
BIND 


NEWXAB = VM_POINTER : REF BLOCK C ,BYTE J; 
Find out how much memory we need (The extra 32 is for the key name buffer) 


BYTES = .CONVSAB_IN_XABSUM [ XABSB_NOK ) * ( XABSC_KEYLEN + 32 ); 
BYTES = ( .CONVSAB_IN_XABSUM [ XABSB_NOA ] * XABSC"ALLLEN ) + .BYTES; 


were eats eal al eal al al al ah a ab ah ah ah ah ah bah ah dh ahh ab dd eh ah ah ah ah ah ah al al al ab ab ah al ahah ab al al oe 


DREN OSB WOE 


: Get the address space 
9 VM_POINTER = CONVSSGET_VM ( .BYTES ); 
2 ! The protection xab will point to the new xabs 


wy 
se 


SOOSOOSOOCOOCOOOSOOOCOOCOCO COO OOOOSOOOOOOOOOoOOoOoOoOOoO 


PUP PUPP PUPP PAA AAA AMM 


w 
, 
oD 


ees 
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COmver pues a lal 15-sep-19 4 93:43:33 om ARES be V4.0-742 Page Ri 


| 
OPEN_] 14-Sep-1984 ONV.SRCICONVF ILES.832;1 
>; 549 43 : 
; ° te CURRENTXAB = CONVSAB_IN_XABSUM; 
3 § #8 ! Chain the xabs together and set up the fields 
; 2 Keys first 
; 5 ‘3 ae I FROM 0 TO .CONVSAB_IN_XABSUM [ XABSB_NOK ] - 1 BY 1 
3 5 1 4 BEGIN 
H 8 5 § 4 CURRENTXAB C XABSL_NXT ] = .NEWXAB; 
; 59 5 4 CURRENTXAB = .NEWXAB; 
; 560 554 4 CURRENTXAB { XAB$B_COD ) = XABSC_KEY; 
; 561 555 4 CURRENTXAB € XABSB_BLN J = XABSC"KEYLEN; 
; 26¢ 396 4 CURRENTXAS [ XABSB-REF ) = JI; 
; 6 0557 & CURRENTXAB [ XABSL_KNM J = .CURRENTXAB + XABSC_KEYLEN; 
; 564 0558 4 NEWXAB = .NEWXAB +”XABSC_KEYLEN + 32 
; 565 0559 END; 
3 208 0560 
3; 3 320) ! Then areas 
; 568 266 : 
; 569 056 INCR I FROM 0 TO .CONVSAB_IN_XABSUM [ XAB$B_NOA ] - 1 BY 1 
; 570 0564 dO 
3 ST) 0565 4 BEGIN 
; 276 9366 4 CURRENTXAB C XABSL_NXT ] = .NEWXAB; 
3 0567 4 URRENTXAB = .NEWXAB; 
3 57% 0568 4 CURRENTXAB ({ XAB$B_COD ) = XABSC_ALL; 
: 575 0569 4 CURRENTXAB ({ XABSB"BLN ) = XABSC“ALLLEN; 
; 576 0570 4 CURRENTXAB C XABSB_A = I; 
; 577 0571 4 NEWXAB = .NEWXAB +~XABSC_ALLLEN 
; 578 0376 END; 
3 Sy 057 
; 580 0574 ! The last xab points to 0 
; 581 0575 ‘ 
; 25¢ ba76 CURRENTXAB C XABSL_NXT J = 0; 
; 057 
3; «584 0578 ! Do a display to fill it all in 
; 585 0579 3 : 
; 586 0580 4 SDISPLAY ( FAB=CONVSAB_IN_FAB ) 
: 587 0581 4 
; 588 a0) END; 
: 589 058 
3 tee gage If this is an indexed file then set the key of ref. to input on 
: 532 286 If .CONVSAB_IN_FAB C FABSB_ORG J] EQL FABSC_IDX 
; e? rH THEN 
Z 96 0589 ! If the key of ref. is out of range then signal an error and return 
3 399 any : normal. (so we can cont inue) 
: 308 236 IF .CONVSGL_KEY GEQ .CONVSAB_IN_XABSUM [ XABSB_NOK J 
; 600 she RETURN CONVS$_NOKEY 
: o0¢ i CONVSAB_IN_RAB C RABSB_KRF ) = .CONVSGL_KEY; 
3; 604 598 ! Must Special Case for a UDF (Undefined) Input File 
; 605 0599 : 


oe-000" eine 1$-seo-1984 93:43:33 Peek -32 V £8°Bsoe1 Page Hs 


14-Sep-1984 12:13:55 ONV. SRC NVFILE 7) 
3 : IF g,CONVSAB_IN_FAB C FABSB_RFM J) EQL FABSC_UDF 
: 608 : BEGIN 
; ei9 : } Get ready to input the file with Block 10 
; 61g CONVSAB_ IN_RAB [ RABSL_BKT 
: 61 0 CONV$AB_IN-RAB C RABSV~B10 Cer 
: 616 4 EN 
; 615 09 ELSE 
; ei? O61} } Else do normal record 10 
; 619 06i§ CONVSAB_IN_RAB C RABSV_BIO ) = _CLEAR; 
: 621 15 ! In normal operation IN_RAB points to IN_FA h 
é Bete ! ob A pores n points to | B but may be changed 
; 6 4 0618 CONVSAB_IN_RAB C RABSL_FAB J] = CONVSAB_IN_FAB; 
; ? : +4 Y Now that every thing is ready connect a stream 
3 6 4 06 : SCONNECT ( RAB=CONVSAB_IN_RAB,ERR=CONVSSRMS_OPEN_ERROR ); 
3 e860 89 3 Any errors from now on are read errors 
; 632 06 : CONVSAB_IN_RAB [C RABSL_CTX ] = CONVS_READERR; 
: 634 re RETURN CONV$_SUCCESS 
> 635 0649 
; 636 0630 1 END; 
-EXTRN SYSSOPEN, SYSSDISPLAY 
SEXTRN SYSSCONNECT 
OFFC 00000 ENTRY CONVSSOPEN. IN, Save R2,R3,R4,R5,R6,R7,RB,- ; 0430. 
57 00006 CF 9€ 0000 MOVAB CONVSGL_KEY, R7 ; | 
56 00006 CF 9€ 0000 MOVAB CONVSAB~IN_ SABSUM+9 R6 F | 
55 00006 CF 9E 0000C MOVAB CONVSAB- INTRAB+4, R5 : | 
54 0000G CF 9€ 00011 MOVAB CONVSAB"IN-FAB, R4& ; | 
06 AG 01 9? 444 CF F 80916 INSV CONVSGL =RERD C. #7, #1, CONVSAB_IN_FAB+6 3 0482 | 
8 00006 CF E 0 3 BLBC i NVS$GL ~ SHARE : 0486 
17 A 4F 6 BF O90 900 MOVB = #79, CbRYSAB in FAB+23 > 0493. 
65 08 88 00028 BISB2 con V$SAB_TN_RAB+4 > 0497 | 
67 D 909 B 1$: TSTL CONV VSGL_KEY : 0505 | 
05 12 0002D BNEQ : 
05 00006 CF OO2F BLBC #CONVSGL_SORT, 38 : 
06 Ab 40 8F 8a 000 33: BICB2 #64, CORVSAB.IN FAB+4 : 0507 
0000G CF 9F 00039 3$: PUSHAB CONVSSRMS_OPEN_ERROR > 0511 
4 DD 000 PUSHL : 
000000006 00 02 cB 99 F CALL #2. § OPEN : 
00006 cf 8 0046 BISB Sra yean FLAGS+2 : 0515 
1D Aa 91 00048 CMP CONVSAB_IN_FAB+29, #32 > 0520 
7B 12 OO004F BNEQ 8$ ; 


Coven pues 


67 


3; Routine Size: 


VAX=11 CONVERT 
OPEN_IN 
76 0006 
r+ tt 
1 0000006¢ 
: FF 
1 
E 
\ ‘7 
06 Al 
51 
61 4C15 
17 Al 
38 AT 4C 
50 64 
€3 2g 
5 FF 
52 
06 Al 
51 
61 2014 
17 Al 
50 
—9 52 
04 
000000006 00 
20 1D 
66 08 
50 000000006 
31. SAS 
1F 
34 
01 AS 
01 aS 
38 86S 
00006 
FC 


000000006 00 
14 a3 000000006 


277 bytes, Routine Base: 


OS — POW N— NWO O PMI PMO "OF POOH P OAM 
DOWNS & S$ WIDN MOO AW $Y NOOO" AO FO" 000 "ans 


8F 


oF 
F 
1 


15- 
14- 
E9 1 
8 6 
A 8 
4 000 § 
A one 
C4 00069 
CO 0006C 
D pOer 
0 $8 1 
0 00074 
E 00077 
9A SR7e 
C O7E 
1 itd 
b0 00 ; 
3 008 
BO Q008A 
90 Benes 
9E 00093 
2 00098 
F 44 
9A QOOAD 
CE QO0A4 
11 QO0A7 
DO Q00A9 
if set 
80 00080 
90 00085 
CO 00089 
F2 QOOBC 
D4 000CO 
DD 000C3 
FB Q00C5S 
91 49 
12 00000 
+4 80006 
4 0000 
DO 00009 
3 Q0E0 
Q0E1 
95 OO0ES 
12 QO0E8 
D4 QOOEA 
t dist 
OOF 1 
4 et 
E OOOF 
9F OOOFB 
rt 
Hs 
DO 00111 
04 00114 


_CONVSCODE + 00FB 


seoct9ee 25:45: 


4$: 


7$: 


8$: 


9$: 
10$: 


od 


AX-11 Bliss-32 V4.0-742 
CONV. SRCICONVF ILES.B32;1 
CONVSGL_ - ,* 


CONVSGL_ 
con ONYSAB™IN, tatu, BYTES 


¢ ouv$ _IN_XABSUM+8, RO 
RO, BYTES 

Byf 

CONVSSGET_VM 


Conv AB. IN_XABSUM, var saat 
CONVSAB IN-XABSUM+9, R3 


NEWXAB 4 (CURRENTXAB) 
NEWX )+, CURRENTXAB 
#1 4774 if (CURRENTXAB) 


23 (CURRENT XAB) 
A rms 


rack R1) 


100(RO5 
R3, I, 4$ 
CONVSAB_IN_XABSUM*8, R3 
NEWXAB, 4(CURRENTXAB) 
(NEWXAB) +, TXAB 
#de, weunAS” 

, 6$ 

dle 

#1, SYSSDISPLAY 
CONV NVSAB_IN_FAB+29, #32 
#0, #8, CONVSAB_IN_XABSUM*+9, CONVSGL_KEY 
#CONVS_NOKEY, RO 


CONVSGL_KEY CONVSAB_ IN_RAB+53 
CONVSAB IN_FAB 


CONVSAB_IN_RAB+56 
i CONTSAB IN, RAB+S 


CONVSAB IN_RAB+5 
CONVSAB_IN FAB? CONVSAB _ IN_RAB+60 
CONVSSRAS OPEN_ERR 


Veyssc ORNECT 
Ronis READERR, CONVSAB_IN_RAB+24 


Page 18 
9 7) 


0521 
0535, 
0536 
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CONVSFILES VAX=-11 CONVERT 15-Sep-1984 23:45: Ak-11 Bliss-32 V4.0-742 Page 19 
Voe~000 OPEN_OUTPUT 1228 08= 1 be 93:93:32 CONV. SRCICONVF ILES.832;1 . (8) 
H 638 1 1 2SBTTL ‘OPEN OUTPUT’ 
3 6 6 ; 1 GLOBAL ROUTINE CONVSSOPEN_OUTPUT = 
; 640 6 1 lee 
; 641 634 1! 
3 ak > 5 ! } Functional Description: 
3 6446 $ 1! Creates ( or opens ) the output file, connects a record stream and if 
; 645 8 1! it is an indexed file allocates and fills in the prologue key and 
; ong 06 1! area descriptor blocks for sort and/or fast load 
; 64 0640 1! 
; 648 0641 1°! Calling Sequence: 
3; 649 ¢ 1! 
; 650 64 1! CONVSSOPEN_OUTPUT 
; 651 44 1! 
3 $26 sae 1 ! Input Parameters: 
; 65 ré] 1! none | 
; 654 0647 1! 
; 655 0648 1°! Implicit Inputs: 
; 656 0649 1! 
; 657 0650 1! CONV$AB_OUT_FAB = Output fab 
; 658 0651 1! CONVSAB IN_FAB - Input fab 
; 659 8926 1! Option Flags 
; 660 0653 1! 
3; 661 0654 1 ! Output Parameters: 
; ¢ 0655 1! none 
; 66 0656 1! 
3 0657 1°! Implicit Outputs: 
; 665 0658 1! 
> 666 0659 1! CONVSAB_FLAGS C CONV$V_OUT J - Set on success 
3; 667 0660 1! 
; 668 0661 1 ! Routine Value: 
: 669 0662 1 ! 
; 670 066 1! CONV$_SUCCESS or error from CONVSSOPEN_IN 
3; 671 0664 1! 
; O78 0665 1 ! Routines Called: 
3; 67 0666 1! 
3 674 0667 1! SPARSE 
3 675 0668 1! CONVSSRMS_OPEN_ERROR = By RMS as an AST 
; 676 0669 1! SCREATE 
3: 677 0670 1! SDISPLAY 
3; 678 0671 1! N 
3; 679 067 1! CONVSSREAD_PROLOGUE | 
: 680 0675 1! C 
3; 681 7% #1! CONVSSOPEN_IN 
; 68 675 1! 
: 68 0676 1 ! Side Effects: 
3; 684 0677 1! none 
3; 685 oth : 
oR 
; 688 0681 BEGIN 
3; 689 068 
3; 690 068 LOCAL 
3; «4691 684 PRESENT : LONG, 
; 69 685 OUT_ DEV : BLOCK C 1,LONG J, 
: 69 O56 STATUS : LONG; 
3 694 068 


18-seo-i984 $3: 93:32 AX-11 Bt ese 3e V4.0=742 Page (BS 


=-11 CONVERT 
N_GUTPUT 14-Sep- CONV. SRCICONVF ILES.832;1 
s $9) 8 H Any rms errors on the output fab are OPENOUT errors 
; 637 3 CONVSAB_OUT_FAB C FABSL_CTX J = CONVS_OPENOUT; 
; 639 4 } Use the file name in the call argument (not one from FDL) 
; FO 94 CONVSAB_OUT_F AB ; FABSB_FNS ) = .CONVSAR_OUT_FILE_NAM [ DSC$W_LENGTH J; 
; 108 95 CONVSAB_OUT-FAB [ FABSL-FNA ) = .CONVSAR“OUT-FILE-NAM C DSCSAPOINTER 3; 
; 794 39 Setup the input file name for output file related file parsing 
; 7 38 CONVSAB_IN_NAM f NAMS$B_RSL ] = .CONVSAB_IN_FAB f FABSB_FNS {i 
3 aide Ae CONVSAB_IN-NAM [ NAMSL-RSA J = .CONVSAB_IN_FAB C FABSL_FNA J; 
: 709 , i ! Parse the name 
; i , 4 SPARSE ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
; at 706 Check the device that the output file is on 
: ae 708 OUT_DEV = .CONVSAB_OUT_FAB C FABSL_DEV J; 
: r Bog We cannot fast load To a network device 
: 719 718 if .OUT_DEV C DEVSV_NET } 
; 720 071 THEN 
; 4 1 ore CONVSGL_FAST = _CLEAR; 
; 4 5 orig Set the FAB from the Option Switches 
; , 5 O78 i write Check 
: 4 ; O59 CONVSAB_OUT_FAB C FABSV_WCK ) = .CONVSGL_WRITE_C; 
; 739 07 5 ' Merge 
; (3 07 ! 
; 231 7 4 CONV$AB_OUT_FAB [ FABSV_SQO ) = ( NOT .CONVSGL_MERGE ): 
: Fag 0726 ' If the CREATE Option was specified then Create the output file 
: ee 0727 ' else just open it 
3; «6735 728 ' 
; 736 729 if .CONVSGL_CREATE 
: 738 ; ; THEN GIN 
; 739 7 ; 
; oy g Z LOCAL COPY_FAB : REF BLOCK C ,BYTE J; 
; me 4 5 } Determine where to copy fab from 
> 7264 7 if .CONVSGL_FDL 
3; 745 7 3 THEN 
: 7% 7 4 BEGIN 
3; 76 740 4 
3; 748 741 & ! If fdl was done copy the stuff from the fab produced by 
: 749 yee 4 ' fdl$$parse 
; 750 743 4 : 
; 751 744 4 COPY_FAB = .CONVSAB_FDL_FAB; 


= 


8 
C FILES VAK-11 CONVERT 1-se “1984 23:45: AX-11 Bliss-32 V4.0-742 Pa 1 | | 
vou b08 OPEN_OUTPLT 12-88-98 93:43:88 CONV.SRCIJCONVF ILES.832;1 = B) 
; q 3 745 4 
3 fe? i ? : Connect the fdl xabs 
; 755 768 4 CONVSAB_OUT_XABSUM [ XABSL_NXT ] = .COPY_FAB C FABSL_XAB J | 
2 750 END 
; , $ , ! ; ELSE GIN 
; 760 rg 
3 «6% 754 & ! If this is not a create by FDL definition then get the stuff 
5 re f 5 2 from the input file 
; 764 i é COPY_FAB = CONVSAB_IN_FAB; 
; 766 7 5 4 ' Connect the input files panes xab NXT which will connect 
; 767 760 4 ! any other xabs that the input file may have had ie. area and 
3 res Ae ? key xabs 
; oy Ores : CONVSAB_OUT_XABSUM [ XABSL_NXT ] = .CONVSAB_IN_XABSUM C XABSL_NXT ] 
: 77 0765 END; 
3; 77 0766 
3 ere 3544 } Copy the important fab fields 
: 77 3769 CONV$AB_OUT_FAB { FABSL_ALQ ) = .COPY_FAB [ FABSL_ALQ J; ! Allocation 
> 77 0770 CONVSAB_OUT-FAB [ FABSW-DEQ ) = .COPY“FAB [ FABSW-DEQ J: | Extension 
; 778 0771 CONVSAB_OUT_FAB ( FABSB_RTV J] = .COPY_FAB [ FABSB_RTV J; ! Reteval vindoow 
: 779 O77e CONV$AB_OUT-FAB [ FABSB-ORG ) = .COPY"FAB [ FABSB-ORG J: | Organization 
; 780 077 CONVSAB_OUT_FAB ABSB_RAT J] = .COPY_FAB [ FABSB_RAT J; ! Record attributes 
: 781 0774 CONVSAB_OUT-FAB ( FABSB_RFM ) = .COPY-FAB C FABSB-RFM J: | Record format 
; 78 0775 CONVSAB_OUT_FAB [ FABSW_MRS J] = .COPY_FAB (C FABSW_MRS J; ! Max record size 
: 78 0776 CONVS$AB_OUT"FAB [ FABSL-MRN } = .COPY“FAB C FABSL-MRN J: | Max records 
: 784 O77 CONV$AB_OUT-FAB [ FABSW- = .COPY-FAB C FABSWIBLS J; | Block size 
> 785 778 CONV$AB_OUT"FAB C FABSB = .COPY-FAB € FABSB~BKS J; ! Bucket size 
3 36 0779 CONVSAB_OUT_FAB [ FABSB_ = .COPY_FAB CL FABSB_FSZ J; ! Fixed size 
; 444 44 CONVSAB_OUT_FAB [ FABSW_GBC = .COPY_FAB [ FABSW_GBC J; ! Global Buffers 
: 789 0782 CONVSAB_OUT_FAB C FABSL.FOP J = .CONVSAB OUT FAB C FABSL_FOP J OR 
; a ore? -COPY_FAB C FABSL_FOP J;~! File options 
: 79 0785 ! If the PROLOGUE option was specified and the file is indexed 
: a, p86 } then stuff the first key xab with the user value 
; 795 788 IF ( .CONVSAB_OUT_FAB C FABSB_ORG ) EQLU FABSC_IDX ) AND 
5 as 789 . CONVSAB_FLAGS CONVSV_PROLOG J 
; 7 790 THEN 
; 798 791 «4 BEGIN 
; 799 792 4 
; 00 0795 4 LOCAL MAB : REF BLOCK C ,BYTE J; 
; 801 B98 G 
3 og 795 4 ! Find the first key xab 
3 30 796 4 ‘ 
; BOs a ? XAB = .CONVSAB_OUT_FAB C FABSL_XAB J; 
: 806 7 4 ! The xabs have to be in order and there must be a key 0 so 
; 807 0800 4 ' the first one we find is the one we want 
; 808 0801 4 : 


8 

C FILES VAK=11 CONVERT 18.58 -1984 23:45: AX-11 Bliss-32 V4.0-742 P 2 
ina +8 OPEN_OUTPUT 12-80 8-198e 93:93:88 CONV. SRCICONVF ILES.632;1 nae BS 
H § 4 WHILE .XAB C XABSB_COD ] NEQU XABSC_KEY 

a “ 

: ig 5 4 ! If there are no more xabs then we really have a problem 
3 iz 2 } so forget it 

: 815 08 4 if .xAB C XABSL_NXT ) EQLU 0 

; 18 09 4 THEN 

: 4 - RETURN CONV$_BADLOGIC 

; 13 \3 4 XAB = .XAB C XABSL_NXT J; 

: B21 Hf 4 ! Stuff the value 

; 5 816 ‘ KAB C XABSB_PROLOG J = .CONVSGL_PROLOG 

; 825 1 END; 

836 O19 

; 0820 ! Create it 

3 8 0821 : 

3 9 08 § ! If the record format was changed on a non VMS system 

: : oS ? signal a warning (only to DCL 

3 B5 08 5 SCREATE ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 

; B34 08 $ ' IF ( SCREATE ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ) EQLU 
; Ms oe 8 Rms f M) AN 
5 829 : -CONVSAB_FLAGS C™CONV$V_DCL J 
3 7 0830 ! THEN 

; 9 4 1 SIGNAL ( CONVS_CREATEDSTM ); 

; ° 4 5 Since a create does not fill in the summary xab do a display 

3 Bc 08 5 4 $DISPLAY( FAB=CONVSAB_OUT_FAB ) 

; Hh $8 $ END 

; 845 ete: ELSE 

; 4] + $44 SOPEN ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 

; 23 ot) If we got here then we have opened a file. 

; 39 bc$ CONVSAB_FLAGS C CONVSV_OUT ) = _SET; 

; 26 Baca Set some bits depending on the type of output file 

; 34 ae Can only append to a sequential file 

; 83) 849 if CONVSAB_OUT_FAB [ FABSB_ORG J EQLU FABSC_sEO 

: 858 0881 CONVSAB_OUT_RAB ({ RABSV_EOF } = .CONVSGL_APPEND 

; 59 26 ELSE 

; 1 6 3¢ If append was on without a seq. output file then error 

; 5 o 28 IF .CONVSGL_APPEND THEN RETURN CONV$_NOTSEQ; 

F 5 0858 ! Is*t not very exciting if it's not an index file 


ne -—---— — = 


9% 
8 
897 
899 
900 
901 
90 
90 
904 
905 
907 
908 
909 


DOOCOCOOOVOOVOVOVOO 


a a ee ee ee el 
NC OC@nNOV EWN —O 


& 
Warot 4 convert 1Sesep-t9R6 25:45:35 yanett BL iesc32. 
5 1 


WEUNE ARERR RRR ERE 


IF. ;,CONVSAB_OUT_FAB C FABSB_ORG ] NEQU FABSC_IDX 


BEGIN 
CONVSGL_MERGE = _CLEAR; 
CONV$GL-SORT = “CLEAR; 
CONVSGL-FAST = “CLEAR 
END 
ELSE 

Set the fill option if it is indexed 
CONVSAB_OUT_RAB [ RABSV_LOA J] = NOT .CONVSGL_FILL; 


If we are sorting or fastloading 


the prologue blocks in the file 


eb ert etme 
= 


ves -CONVSGL_FAST OR .CONVSGL_SORT ) 
BEGIN 
! Connect the file for Block 10 for reading the 
prologue. 


CONVSAB_OUT_RAB [ RABSV_BIO J} = _SET; 

SCONNECT ( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_OPEN_ERROR ); 
Read the prologue 

CONVSS$READ_PROLOGUE () ; 


' If this is not a fast load then we need to bounce the file so we can 


do record 10 again. (This sure doesen'd look good!) 
if NOT .CONVSGL_FAST 
THEN 

BEGIN 

Disconnect and Close (Dont check the disconnect) 


SDISCONNECT ( RAB=CONVSAB_OUT_RAB ); 
SCLOSE( FAB=CONVS$AB_OUT_FAB )3 


: Clear the Block 10 flag 

CONVSAB_OUT_RAB C RABSV_BIO ) = _CLEAR; 

: Reopen and Reconnect (Dont need to reconnect the PLG RAB) 
SOPEN ( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_ OPEN_ERROR ); 
SCONNECT ( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_OPEN_ERROR ) 


END 
END 


then allocate space for KEY and AREA XAB's and fill them in by reading 


V4.0-742 
LES.632;1 


—_--—-——- 


a 
- 
mm 
w” 


MFWN "CO OONOulw 


SILSSSSESELLEPEPL SALLI G ALPE L LOLS 
MISUN “CO OONOUE WOO 


oovono 
ww 
COON 


FEREE 


8 
VAK-11 CONVERT bese “19 745: AX-11 Bliss-32 V4.9-742 Pa 4 
OPEN. OUTPUT 12-8 08-1 9b 93:93:88 CONV. SRCIJCONVF ILES.832;1 - BS 
1 ELSE 
4 BEGIN 
1 ! If we are merging into an indexed file 
: } then set the access to KEY 
9 ¢ if .CONVSGL_MERGE 
9 THEN 
H ¢ CONVSAB_OUT_RAB C RABSB_RAC ] = RABSC_KEY; 
9 § ! If we are not sorting or fastloading 
85% : then connect the stream normally 
3 4 SCONNECT ( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_OPEN_ERROR ); 
03 1 If the output file was not opened by now we can open it here 
9 : if NOT .CONVSAB_FLAGS C CONVSV_IN } 
03 5 4 RET_ON_ERROR( CONVSSOPEN_IN() ) 
ii END: 
0339 If PAD switch is on and the file is not fixed format 
Bee3 IF | ;,CONVSGL_PAD AND ( .CONVSAB_OUT_FAB C FABSB_RFM J] NEQU FABSC_FIX ) 
094 BEGIN 
0944 CONVSGL_PAD = CLEAR; 
0945 SIGNAL (”CONV$_PAD ) 
se on 
0948 ! Any errors on the output rab should be write errors (exceptions are in 
ea the fast load code 
0991 CONVSAB_OUT_RAB C RABSL_CTX ] = CONVS_WRITEERR; 
0958 } Return normally 
boas RETURN CONV$_SUCCESS 
0956 
0957 1 END; 
-EXTRN SYSSPARSE, SYSSCREATE 
eEXTRN SYSSDISCONNECT, SYSSCLOSE 
OFFC 00000 ENTRY wd et OUTPUT, Save R2,R3,R4,R5,R6.R7.- ; 0632 
RB,RI,R10,R11 2 
59 9006 CF 9E 0000 MOVAB CONVSAB_FLAGS+2, R9 ; 
38 006 cr 9— 0000 MOVAB CONVSGL-MERGE, R8 ; 
0000 G 00 9 BY MOVAB YS : 
$ G cf E 0001 MOVAB CONVS$GL FAST, R6 ; 
0000 G 00 9 3 MOVAB SYSSCONRECT, RS 3 
4 G CF 9E OOOIF MOVAB CONVS$SRMS OPEN ERROR, R4 : 
3 0006 CF 9E 00024 MOVAB CONV$AB_OOT_RAB+4, R34 ; 


ay 


g 
| CONVSFILES VAX=11 CONVERT 18.58 =1984 23:45: AX-11 Bliss-32 V4.0-742 Page 25 
Rive OPEN OUTPUT 12-808- 1984 43:93:88 CONV. SRCICONVF ILES.832;1 . BS 
| 5 99 G CF 9 9 MOVAB CONVSAB_OUT_FAB, R2 : 
| 18 Ad 0000 G 8F OD E MOVL #CONVS_OPENOUT, CONVSAB_OUT_FAB+24 3 9690 
5 00006 cf p MOVL § CONVSAR_OUT_FILE_NAM, R + 0694 
4 A 9 0 vB (RO), CONVSAB_OUT_FAB+5 : 
f A 0 A p F MOVL 4(ROS, CONVSAB_OUT_FAB+44 ; 0695 
000G CF 90 96 CF 44 VB  CONVSAB_IN_FAB?52,~ CONVSAB_IN_NAM+3 : $99 
0006 CF 0006 CF D 48 L_  CONVSAB~IN“FAB+44, CONVS$AB—IN-NAM+4 : 0 00 
14 6B 3 5 PUSHR #*M<R2,R4> : 0704 
000000006 03 FB 54 CALLS #2, SYSSPARSE : 
40 A2 D 0098 MOVL §§ CONVSAB_OUT FAB+64, OUT_DEV : 0708 
02 OD £1 0005F BBC #13, OUT_DED, 1$ + O712 
66 D4 o3 CLAL CONVSGL_FAST : fat 
0S A2 01 or 00006 CF F 1$: INSV CONVSGLWRITE_C, #1, #1, CONVSAB_OUT_FAB*S ; 0720 
0 $8 D 906 MCOML CONVSGL“MERGE, R + 0724 
06 A2 01 06 0 FO 00070 INSV RO, #6, #1, CONVSAB_OUT_FAB+4 : 
00006 cf § 0076 BLBS CONVSGL CREATE, 2$ + 0729 
081 31 00078 BRW $ : 
gp 00006 CF E9 O07k 2$ BLBC  CONVSGL_FDL, 3$ + 0737 
0 0000' CF 00 008 MOVL CONVSABLFDL FAB, COPY_FAB + 0744 
00006 CF 24 AO 00 00088 MOVL 6(COPY-FABY, CONVSAB~OUT_XABSUM+4 > 0748 
oc 11 0008E BRB 4$ ; 
50 00006 CF 9 00090 3$: MOVAB CONVS$AB_IN_FAB, COPY_FAB : 0757 
00006 CF 00006 CF DO 00095 MOVL § CONVSAB~IN-XABSUM+4,~CONVSAB_OUT_XABSUM+4 =; 0763 
10 A2 10 AO DO 0009C 4s MOVL §§ 16(COPY"FAB), CONVSAB_OUT_FAB+16 : 0769 
14 Ag 14 AO BO OO0A1 MOVW O(COPY“FAB). CONVSAB~OUT~FAB+20 : 0770 
| ae 1¢ AO DO 0006 MOVL 8(COPY-FAB), CONVSAB_OUT—FAB+28 + 0771 
6 Ag 36 = AO 80 OO0AB MOVW 4(COPY“FAB), CONVSAB_OUT—FAB+54 : 0775 
8 A 38 ad 7D 00080 MOVQ 56(COPY"FAB), CONV$AB_OUT—FAB+56 + 0776 
48 Ae 48 Ad BO 00085 MOVW § 72(COPY“FAB), CONVSAB~OUT~FAB+72 : 0780 
04 Ae 04 AO C8 OOOBA BISL2 4 (COPY_FAB), CONVSAB Out AB+4 : 0783. 
20 1D A2 91 OO0BF CMPS  CONVSAB_OUT_FAB+29, # : 0788 
26 12 000C3 BNEQ = S$ ; 
22 69 06 €1 000C5 BBC #6, CONVSAB_FLAGS+2, 8$ : 0789 
50 24 A2 00 0009 MOVL § CONV$AB_OUT"FAB+36, XAB : 0797. 
15 60 91 000CD 5$ CMPB 3 s« (AB), B21 : 0802 
13 13 00000 BEQL ; 
06 Ad 05 90002 TSTL  4(XAB) > 0808 
08 12 0000 BNEQ F 
50 000000006 8F D0 00007 MOVL  #CONV$_BADLOGIC, RO + 0810 
04 OO0dE RET : 
50 04 AO 00 OOODF 68 MOVL 4(XAB), XAB + 0812 
E8 11 O00E3 BRB 5 : 0808 
48 AO 00006 CF 90 O00ES 7$ MOVB CONVS$GL_PROLOG, 72(XxAB) : 0816 
14 8B OEB 8$ PUSHR #°M< > > 0825 
000000006 00 92 FB OOOED CALLS #2, SYSSCREATE ; 
DD OO0F4 PUSHL > 0835 
000000006 00 01 FB 000F6 CALLS #1, SYSSDISPLAY ; 
05 11 OOOFD BRB 10$ ; 
14 BB OOOFF 9$ PUSHR #*M<R2,R4> > 0839 
67 0 EB O191 CALL 3. SYSSOPEN : 
69 8 104 108:  BISB2 #2. CONVSAB_FLAGS+2 > 0843 
0 1D A2 9A 00107 MOVZ7BL CONVSAB_OUT"FAB+29, RO : 0849 
OA iF 0108 BNEQ  ~=«'11$ ; 
01 «AB 01 00 00006 r Fo IE INnsy c VSGL_APPEND, #0, #1, CONVSAB_OUT_RAB+S ; 0851 
08 00006 CF €9 00117 11$:  BLBC  CONVSGL_APPEND, 128 > 0856 
000000006 +8F D0 0011C MOVL § #CONV$_RNOTSEQ, RO ; 


—— 


9 FNM MOO fa "DW 


4 8 
i¢ FILES VAK=-11 CONVERT 15-Sep-1 
fe b08 OPEN_OUTPUT 1a-Sep-1 
123 

20 30 ‘i 124 128: 
A 1 127 
68 D4 129 
| 00006 6 Dé ; H 
8 1 
—— * 00006 44 1 138: 
66 135€ 14$: 
§ 0000G CF 0141 
01 98 4 6 15$: 
4 14A 
o a eae 
00886 01 ¢ 
40 ° 01 
FC 0158 
00000000G 00 } 3. 8 
000000006 09 1 01 
i S at: 
67 2 001 
4 01 
FC 3 01 
65 2 01 
A 101 
8 001 
1 01 
4 01 
3 01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


o7TO9 — OMM HM OF OM" OF TNDWONS OM OVO OMM "oO 
ODS FW 00T OD "9 00-98 “9099 SWOO "WOW TO @owon— 


SOWOOM — POVODR0O FVV08 "OPO" OOwM1o & Oo 


04 16$: 
1A A3 0 
0 17$: 
FC 0 
65 
08 
FD5S6 CF 0 0 
27 0 00195 
17 0000G CF 8 18$: 
01 1F 2 D 
1 Q001A1 
0000G CF 001A3 
00000000G 8F 001A7 
000000006 09 1 001AD 
14 33 000000006 : 00184 19$: 


De OO1BF 208: 


3; Routine Size: 448 bytes, Routine Base: _CONVSCODE + 0210 


Be 93:13:55 


AX-11 Bliss-32 v4.0-742 
CONV. SRCICONVF ILES.832;1 
° #32 
CONVSGL_MERGE 
CONVSGL_SORT 
ONVSGL-FAST 


CONVSGL_FILL RO 
RO, #5, #1, CONV$AB_OUT_RAB+S 
CONVSGL_FAST, 15$ 
CONVS$GL~SORT, 16$ 

#8, CONVSAB_OUT_RAB+S 
CONV$AB_OUT_RAB 

io. SYSSCOMRECT 
CONVSSREAD_PROLOGUE 
CONVSGL_FAST, 18S 
CONV$AB~OUT_RAB 

a. SYSSDISCONNECT 

#1, SYSSCLOSE 

#8, CONVSAB_OUT _RAB*S 
#*M<R2,R4> 

#2. SYSSOPEN 


CONVSAB_OUT_RAB 
Me SYSSCONNECT 


CONVSGL_MERGE, 17$ 
a. CONVSAB_OUT_RAB+30 


CONVS$AB_OUT_RAB 

#2, SYSSCONNECT 
CONV$AB_FLAGS+2, 18$ 
#0, CONVSSOPEN_IN 
STAT $ 


CONV$SGL_PAD, 198 
CONVSAB_OUT_FAB+31, #1 


CONVSGL_PAD 
#CONVS_PAD 


#1, LIBSSIGNAL 
#CONVS URITEERR. CONV$AB_OUT_RAB+24 


o 


Pe Se Se Se Se Se Se Se Se Be Se Se Se Be Be Se Se Se Se Be Ge Se Fe Be Se Se Ge Se Ge Se Fe Se Fe Fe Se Se Ge Se Fe Se Ge Se Se Ge Se 


—————_—_—__— — — 
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8 
C FILES VAX-11 CONV + 1b-5 “19 45: AX-11 Bliss-3 -74 
| CREATE BUFFER 127365-198¢ 13:13:83 CONV. sRe atc nvF ILE °5 $37 


ZSBTTL ‘CREATE BUFFER 
= ROUTINE “CONV CREATE BUFFER = 


segs 


i 
Functional Description: 


0 
971 

38 Creates the main record buffer and sets the record sizes 

974 The main record buffer: 

975 

97 H : } 

978 1 ; ; 
| 979 OMe Rm ee em me ewe woe ceeoooooooooooe/ / coceeeoocoeoecose 

980 a a 

981 : ; 

982 VF C_BUF _PTR REC_BUF _PTR 

98 

984 

eae Calling Sequence: 

$87 CONVSSCREATE_BUFFER() 


Input Ah tetes 


Cute ve 


Implicit Outputs: 


PETES TERE REEL | 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Implic sa Bg cates 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


Be Oe Oe Oe Be Be Be Oe Oe Be Oe Ge Be Ge Be Be Ge Ge Ge Se Ge Ge Se Ge Se Ge Ge He Ge Se Ge Se Ge Gs Se Se Se Se Se Se Se Se Se Se Se Se FH Se Fe Ge Se Se Se Ge Se Ge ae 


: Record buffer pointers and size variables 

: Routine Value: 

: SS$_NORMAL 

1 348: Routines Called: 

1 99 

1 1000 CONVSSGET_VM 

1 1001 

1010 O58 Side etvectes 

1011 100 

Ole 1004 

101 1005 

1014 1 

1015 100 BEGIN 

1ot6 1908 

101 1009 LITERAL 

45 4 13; MAX_REC_CTRL = 14;  ! Maximun number of control bytes for a data 
101 1011 i record in index file (14 is for a fully 
1020 iolg i compressed prologue 3 record 

1021 101 

1022 1014 LOCAL 


4 


8 
sone IERIE FEES etal 


2 
se 
rr 
mn 
w 
oc 


$-32 
F 


is 0-742 Page $8 
CONV. SRCICONV (9) 


v4. 
ILES.832;1 


4 


AX- 
REA 

: 1023 1015 IN_VFC, 

: 1026 1 16 IN"MRS 

: 1005 101 ouT_vFe 

; g i 18 OUTEXTRA; 

; i? : ! 9 : Acccount for the VFC temporaraly 

; 19 19 ; if 5 CONVSAB_OUT_F AB C FABSB_RFM J EQL FABSC_VFC 

: 19 ; 19 4 evseeul= = ,CONVSAB_OUT_FAB C FABSB_FSZ J 

: 10 4 19 § OUT_VFC = 0; 

: 10 10 § ! If output MRS = 0 ( je. VAR and VFC records ) then 

3 er 10 ! check for Block Spanning with Sequential Files 

3 os 18 , and Bucket Crossing with Relative and Indexed 

: 1040 10 : if CONVSGW_OUT_MRS = .CONVSAB_OUT_FAB C FABSW_MRS ] ) EQL 0 

> 106 10 BEGIN 

3 1908 4 

$ H ne} 1938 LOCAL OUT_DEV : BLOCK C 1,LONG 2; 

3 1046 1038 ! Find out if this thing is grins to tape, if so use block size 

3 ier te (Since records cannot spand blocks on tape) 

: 1049 1041 OUT_DEV = .CONVSAB_OUT_FAB C FABSL_DEV ); 

; 1050 Mok 

: 1051 104 IF .OUT_DEV C DEV$v_saD J 

; 1038 1044 THEN 

3 927 + ok CONVSGW_OUT_MRS = .CONVSAB_OUT_FAB C FABSW_BLS J] - .OUT_VFC = 2 

: Ht Hot Sequential and NO Block spanning 

; E F ( .CONVSAB_OUT_FAB C FABSB_ORG }] EQLU FABSC_SEQ ) AND 

3 1038 1980 nt ' en teatee ss -CONVSAB_OUT_FAB C FABSV_BLK J 

: 1060 105¢ CONV$SGW_OUT_MRS = BLOCK_SIZE - .OUT_VFC - 2 

: 1061 105 

3 1008 1054 ' Relative 

: 106 1055 ‘ 

3 He: 1928 ELSE IF .CONVSAB_OUT_FAB C FABSB_ORG ] EQLU FABSC_REL 

‘ 1066 1938 CONV$GW_OUT_MRS = ( .CONVSAB_OUT_FAB C FABSB_BKS ) * BLOCK SIZE.) - 

> 1068 1060 “RFblag 

3 1068 Hee Indexed 

: 1071 1908 ELSE 

: 107@ 1064 CONVS$GW_OUT_MRS = ( .CONVSAB_OUT_FAB [ FABSB_BKS ] * BLOCK_SIZE_) - 

Be 188 oe 

: 1075 1 END: 

3; 107 1068 , 

3 1079 1069 ! If the Input File is UDF then the UDF_MRS is calculated from 

3 oe 1379 the output file attributes 


8 

CONVSFILES VAX-11 CONVERT 1S-se “1984 23:45: AX-11 Bliss-32 V4.0-742 Page 29 
¥oe~000 CREATE _BUFFER 12-808=1 980 #3343382 CONV. SRC IJCONVF ILES.832;1 . (3) 
3 1 1 if If .CONVSAB_IN_FAB C FABSB_RFM J) EQLU FABSC_UDF 

3 18 1 107 THEN 

3; 1 ¢ 1074 BEGIN 

3; 10 1075 

; 13 ¢ : 78 IN_MRS = BLOCK_SIZE; 

3 10 1 a ! If fixed format then no problem use that value, if 

3 4 : Le not see if a 512 byte record will fit 

3 H's 2 : 3] IF .CONVSAB_OUT_FAB C FABSB_RFM ] EQL FABSC_FIX 

é 199) 1 58 CONVSGW_UDF_MRS = .CONVSAB_OUT_FAB C FABSW_MRS J 

3 1 § 1084 ELSE 

3; 109 1085 

3: 1094 1988 ! If the udf record will not if into the output file then error 
; 1095 108 : 

; 10 1088 IF .CONVSGW_OUT_MRS LSS BLOCK_SIZE 

; 109 1089 THEN 

; 1098 1090 RETURN CONVS_UDF_BLK 

: 1099 1091 

3; 1100 94 CONVSGW_UDF_MRS = BLOCK_SIZE 

3; 1101 109 END 

: 1108 1094 ELSE 

3 110 1095 BEGIN 

3: 1104 18 

: 1105 109 ! Here for a normal input file : 

; 1188 18 : INARS is the Length of the maximun record size 

3; 1108 1100 ! Now see if the file is VFC 

3; 1109 1101 : 

3 1110 1108 IF .CONVSAB_IN_FAB C FABSB_RFM ) EQL FABSC_VFC 

31111 110 THEN 

3 HE 1104 IN_VFC = .CONVSAB_IN_FAB C FABSB_FSZ J 

3111 1105 ELSE 

3 1114 1106 IN_VFC = 0; 

3 1115 1107 

3 1116 1108 ! If max. record size is zero then we find out from Longest Record Length 
3 ie 1398 on disk or Block Size for magtape 

3 1119 1111 IF ( IN_MRS = .CONVSAB_IN_FAB C FABSW_MRS ] ) EQL 0 

: 1120 i¢ THEN 

3 1121 11135 4 BEGIN 

311 ; 1114 4 

3 1 Z 111? ? LOCAL IN_DEV : BLOCK C 1,LONG J; 

3 1125 1117 4 ! Find out if this thing is comming from tape if so use block size 
; 1% $ 1333 ; (Since records cannot spand blocks on tape) 

3 i 3 i 9 ? IN_DEV = .CONVSAB_IN_FAB C FABSL_DEV J; 

3; 11350 11 § 4 IF .IN_DEV C DEVS$v_SQD J 

3 1131 11 4 THEN 

; 4 § } : : IN_MRS = .CONVSAB_IN_FAB C FABSW_BLS J] - .IN_VFC 
3 73 11 $ & ! If SEQ use LRL otherwise check 

3; 1135 11 4 ' bucket sizes 

3; 1136 1128 4 : 


23 

: 
| 
| 
| 


8 
ONVERT bse -1984 745: AX-11 Bliss-32 v4.0-742 P 0 
a reeset ts rake eet ot OOM 18 bse ha oer ot 


IF .CONVSAB_IN_FAB £ FABSB_ORG J EQL FABSC_SEQ 
IN_MRS = .CONVSAB_IN_XABFHC C XABSW_LAL J 

: Relative 
rise IF .CONVSAB_IN_FAB C FABSB_ORG J EQL FABSC_REL 


Zz, 
mo 


IN_MRS = ( .CONVSAB_IN_FAB C FABSB_BKS J] * BLOCK_SIZE ) - 
eIN_VFC = 3 
: Indexed 
ELSE 
IN_MRS = ( .CONVSAB_IN_FAB C FABSB_BKS J * BLOCK_SIZE ) - 
TIN_VFC = 7 
END 


END; 
Now calculate the number of blocks needed. 
If UDF, ask for one block extra for overlapping of the buffers 
= CONVSAR_IA_FO8 C FABSB_RFM J] EQLU FABSC_UDF 

OUT_EXTRA = BLOCK_SIZE 


WN SO OCONAUES WN 9 OBNAUEWWN "OC OONOUFSWN—OO PFI 


ELS 
OUT_EXTRA = 0; 
BEGIN 
LOCAL 
BYTES, 
VF C_OFFSET; 
: Determine which is larger and use that size for the Buffer Size 
BYTES = MAX( BLOCK_SIZE , ! At least a page 
( .IN MRS + .IN VFC ), ! Input record size 
( .CONVSGW_OUT_ARS + .OUT_VFC + .OUT_EXTRA )); ! Output record size 
! If we are doing a fast load get some extra bytes to use at the beginning 
of the record for control information 
iF .CONVSGL_FAST 
THEN 


BYTES = .BYTES + MAX_REC_CTRL; 


1 

IF UDF input, round buffer up to next whole block 

if .CONVSAB_IN_FAB C FABSB_RFM ) EQLU FABSC_UDF 
BYTES = (.BYTES + 511) AND NOT 511; 


ee ee ec ee ee ee em ee ee ee ea a dd 2d 8 dd dd 2d od 


Be Be Oe Oe Oe Be Be Se Oe Se Os Be Oe BF Oe Se Se SF Se Be Be Be Se Se Ss Oe Se Os Se Ss Oe Be Oe Se Se Oe Se Se Os Se Se Oe SH Se Se Se Oe Oe OH Ss OH Se Sees Se eee 

ee ee ee ce ee ee ee ce a ee ee ee ee ee ee ee ee el ae ed ae ed ed ed ed ed 
ee a ded nd od od 
tt ert a PP at hh th tlh Ab hh Atty Ate Aah aie Ay Ah Pe Mh ad remy sty tere wb 4 


00 09 09 09 09 09 09 09 SI NINN INS NS NN NP AAAAAAAA AMI BS BB BEEP L EE 
COS QSSS SSP SMOS ISVS ARAN SSS VS FS SSS eee ore sss 


AANA AIA AAA AIAN AAA AIP PIPINPIPINPINPINPUPINININI BFL SLL LLLP LEP PPLE EE 


MEW $9 OONOUEWN “OC OONOu 


| 
| 


E BUTTER. ete 43:13:38 UCGuveseedeonve ikes.060¢ oath. 


Create the Buffer from virtural memory 
CONVSGL_REC_BUF_PTR = CONVSSGET_VM ( .BYTES ); 


cr ae Seem a fast load hide the extra bytes at the beginning of 
i 


if ,CONVSGL_FAST 
CONVSGL_REC_BUF_PTR = .CONVSGL_REC_BUF_PTR + MAX_REC_CTRL; 
} Set the VFC offset to the max of the two offsets 
VFC_OFFSET = MAX( .IN_VFC,.OUT_VFC ); 
Correct the pointers and set the max. record size 


CONVSGL -VFC_BUF_PTR = .CONVSGL_REC_BUF_P 
CONVSGL-REC_BUF-PTR = .CONVSGL_VFC_BUF “PIR + .VFC_OFFSET; 


—— 


coe 


oo ViFWN—OOOnNG Fit 


wr 


a ta et a — a a 4 a 8 > 3  _  _s 


ROPIPIPIPINININIPINPIPYININIAPINININININININS 2 2 OO 


SOBVSE ALANA OSRISAR WU ODO IEAE 


é CONVSGW_MAX_REC_SIZ = .BYTES = .VFC_OFFSET 
: END; 

? RETURN CONV$_SUCCESS 

:-% END; 


OFFC 00000 eENTRY Sate oa St + ae Save R2,R3,R4,R5,R6,.- =; 0959 
59 00006 CF 9€ 0000 MOVAB CONVSGL re: bur PTR, R9 : 
58 00006 CF 9€E 0000 MOVAB CONVSAB~IN_FAB+31 : 
57 00006 CF 9E 0000c MOVAB CONV$GW~OUT ARS. R? : 
56 00006 CF 3 00011 MOVAB CONVS$AB~OUT Agé31. Rs : 
03 66 91 00016 CMPB  —- CONVS$AB~OUT— “FABS i. : 1022 | 
06 12 00019 BNEQ  ~='T$ : | 
54 20 Ab 9A 0001B MOVZBL CONVSAB_OUT_FAB+63, OUT_VFC : 1024 | 
02 11 OO01F BRB 2$ : 
54 D4 00021 18: CLRL  OUT_VFC : 1026. 
67 17 6 i3 8 ; 2$: nove CONVSAB_OUT_FAB+54, CONVSGW_OUT_MRS : 1032 | 
50 21 Ab DO 00029 MOVL CONVSAB_O out _FAB+64, OUT_DEV + 1041 
yy 50 0 f 002d BBC > 1043 
50 1D Ab 0031 MOVZ2WL CONVSAB~ BUT *FAB+60, RO > 1045 
50 54 C2 00035 suBLe 9 Vv : 
67 50 : As 0 : sup "RO, CONVSGW_OUT_MRS | 
51 FE 9A dbep 3$: MOVZBL yam _OUT_FAB+29, R1 : 1049 | 
0 FF AG p i bes BBC CONVS T_FAB+30, : 1050 | 
08 O1FE 8F 34 As 0049 SuBWS Ouf_vFC, # aeTOe CONVSGW_ “our _MRS 3 1052 | 
50 1F A6 9A 00051 4$: MOVZBL CONVSAB_OUT_FAB+62, RO > 1058 | 


8 
CONVSFILES VAX=11 CONVERT 1B-sep-1984 
yoe~000 CREATE _BUFFER 14-Sep-1984 
50 9 7 ASHL 
30 4 S 3 SUBL2 
i 1 C CMPB 
g 1g 0005 BNEQ 
67 50 AS 00061 SUBW3 
4 11 00065 BRB 
67 50 ? A3 0006? S$: SUBW3 
$1 8 9A 00068 68: ROVZBL 
D4 0006 CLRL 
i DS 000 TSTL 
5 be booze oh 
50 0200s CBE OO MOVZWL 
01 66 91 00078 CMPB 
08 12 007 BNEQ 
00006 CF 17 Ag BO 0008 MOVW 
63 11 00086 BRB 
0200 8F 67 81 00088 7$: — CMPW 
08 if 008D BGEQU 
50 000000006 BF 00 0008F MOVL 
04 00096 RET 
0000 cf 0200 BEG 0097 Bs: MOV 
4B 11 0009E BRB 
03 $1 91 0000 9$: —CMPB 
06 12 O00A3 BNEO 
52 20 AB 9A OOOAS MOVZBL 
0 11 09049 RB 
52 D4 OOOAB 108: CLRL 
50 17 AB 3C OO0AD 118:  MOVZUL 
38 12 00081 BNEO 
51 21 AB DO 000B3 MOVL 
09 34 05 1 90087 BBC 
30 1D AB 3C O00BB MOVZWL 
50 52 C8 000BF SUBL2 
27 11 g00cg BRB 
53 FE AB 9A O00C4 128: MOVZBL 
07 12 000¢8 BNEG 
50 00006 CF 3C OOOCA MOVZWL 
1A 11 OOOCF RB 
51 1f A8 9A 00001 13$:  ROVZBL 
51 31 09 78 00005 ASHL 
31 52 £2 00009 SUBL2 
10 3 00DC CMPB 
0 12 O000F BNEQ 
50 FD AT 9€ 90081 MOVAB 
04 11 O00ES BRB 
50 F9 A 9F OOOE? 148: ROVAB 
07 55 69 OO0ER 158: BL aC 
3 0200:«sBF.CSC«O00E MOV ZL 
11 000F BRB 
D4 OOOFS 166: CLAL 
50 CO O00? 178: ADDL? 
1 OOFA MOVZWL 
1 4 ¢ OOF ADDL 
3} 35 fF Boro CAPL 
83 38 Soiog BGEG 


eee eee 


aENEHE VO! Bese thse? 


CONV. SRC 
#9, RO, RO 
ouf vee, RO 
R1, "#16 


. 


ILES.832;1 


5 
#3, RO, CONVSGW_OUT_MRS 


#7, RO, CONV$GW_OUT_MRS 
CONVSAB_IN_FAB+31, Ri 


R1 

9$ 

RS 

#512, IN_MRS 
CONVEAB_OUT_FAB+31, #1 


CONVSAB_OUT_FAB+54, CONVSGW_UDF_MRS 


ONVSGW_OUT_MRS, #512 
#CONVS_UDF_BLK, RO 
#512, CONVSGW_UDF_MRS 
15$ 


CONVSAB_IN_FAB#29, RS 
CONVSAB_IN_XABFHC+10, IN_MRS 
CONVSAB_IN_FAB+62, R1 

y R1 


IN-VFC, R1 

R3, #16 

14 

TagRl). INLMRS 
-7(R1), IN_MRS 
#512, OUT_EXTRA 
OUT_EXTRA 

IN VFC, RO 
CORVSGW_OUT_MRS, R1 
OUT_VFC> R1 
OUT“EXTRA, RI 
Rd RI 

18$ 


Bee Se Ge Fe Fe Se Fe Se Ge Be Se Se Fe Fe Ge Se Ge Se Se Be Be 


athabed ahababatad abad 
abubaet aibababatal abal 
SOW VIVMPuUW Ww 
COOnm OLfFn@wW wo 


o 
CONVSF ILES VAX=11 CONVERT 15-Sep-1984 23:45: AX-11 Bliss-32 v4.0-742 
| CREATE_BUFFER 12-808-1 98 43:93:88 CONV. she Bt eoN Suvi IVE .832;1 
0 1D 1 MOVL RI. R 
00000200 Ht g i i‘ 18$: CHP R42 
0200 F 11 MOVZWL gate 7. 
0 06 00119 19% MOVL Bytes 
; 0000G CF E 1 f BLBC coivéeL GL FAST, 20$ 
§ cg 1 ADDL2 TES 
126 208 BLBC R 
: OiFF 1 9E 00127 vag S11cR 1) 
51 QOOOOOIFF SF CB O01eC BICL rb, MONTES 
1 p 134 218 PUSHL svt 
00006 1 BSBW CONV $GET_VM 
5 4 C 1 ADDL2 
6 0 dD 13¢ VL ONVSGL re BUF _PTR 
3 00006 CF . 13F BLBC Conv GL_FAST, 
9? CO 00144 ADDL2 4, CONVSGL_REC_BUF_PTR 
4 D1 00147 228: CMPL +4 T_VFC 
18 OO14A BGEQ 4 46=_- 238 
4 p0 0014C¢ MOVL & 
é DO OO14F 238 MOVL R2, VFC_CFFSE 
00006 CF 6 0 O13¢ MOVL CONVSGL~REC_BUF_PTR, CONVS$GL_VFC -BUF _PTR 
69 0000GDF40 9E 0015 MOVAB cow ONVS6 s6C vet 8 BUF PTRLVFC. OFFSETI; 
0000G CF 51 50 A3 00150 SUBW3 CuOPFSET, “BvIES. CONVSGW_MAX_REC_S1Z 
50 01 D0 00163 MOVL yi 
04 00166 RET 
; Routine Size: 359 bytes, Routine Base: _CONVSCODE + 0300 
: 1221 1213 1 
: 1222 1214 0 END ELUDOM 
.EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _CONV$GLOBAL : NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC ALIGN(2) 
3 ~CONVSCODE 1335 NOVEC.NOWRT. RD; EXE, SHR. LCL. REL. CON. PIC.ALIGN(2) 


Library Statistics 


oucsease Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 96 10 0:01.7 

; me Siitiarys f CONV. SRC Convert. L32;1 165 14 : 9 60; :00.2 


ro 


9 
eae’ weil) Serer eral RT Conn tc ta 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:CONVF ILES/OBJ=OBJ$:CONVFILES MSRCS$:CONVF ILES/UPDATE=(ENH$: CONVF ILES) 


Size: 1335 Hit + 8 data bytes 


: Run Time: : 
; Elepsed Time: 1: 
3; Lines/CPU Min: 4 


5 


; Lexemes/CPU-Min: 1 if 
; Y Used: 204 pages 
Compilation Complete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


-BT13A-SE — 
VAX/UMS V4.0 
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